home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTAutoStores.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  11.0 KB  |  330 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTAutoStores.pas' rev: 3.00
  6.  
  7. #ifndef AHMTAutoStoresHPP
  8. #define AHMTAutoStoresHPP
  9. #include <Controls.hpp>
  10. #include <ComCtrls.hpp>
  11. #include <StdCtrls.hpp>
  12. #include <AHMSControls.hpp>
  13. #include <Registry.hpp>
  14. #include <IniFiles.hpp>
  15. #include <Dialogs.hpp>
  16. #include <Classes.hpp>
  17. #include <Messages.hpp>
  18. #include <Windows.hpp>
  19. #include <SysUtils.hpp>
  20. #include <SysInit.hpp>
  21. #include <System.hpp>
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Ahmtautostores
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. enum TAHMRootKey { hkeyClassesRoot, hkeyCurrentUser, hkeyLocalMachine, hkeyUsers, hkeyCurrentConfig, 
  29.     hkeyDynData };
  30.  
  31. enum TAHMDatatype { sRegistry, sIniFile };
  32.  
  33. class DELPHICLASS TAHMRegistry;
  34. class PASCALIMPLEMENTATION TAHMRegistry : public Classes::TPersistent 
  35. {
  36.     typedef Classes::TPersistent inherited;
  37.     
  38. private:
  39.     TAHMRootKey FRootKey;
  40.     System::AnsiString FSection;
  41.     System::AnsiString FPath;
  42.     
  43. public:
  44.     __fastcall TAHMRegistry(void);
  45.     __fastcall virtual ~TAHMRegistry(void);
  46.     
  47. __published:
  48.     __property TAHMRootKey Rootkey = {read=FRootKey, write=FRootKey, default=1};
  49.     __property System::AnsiString Path = {read=FPath, write=FPath};
  50.     __property System::AnsiString Section = {read=FSection, write=FSection};
  51. };
  52.  
  53. class DELPHICLASS TAHMIniFile;
  54. class PASCALIMPLEMENTATION TAHMIniFile : public Classes::TPersistent 
  55. {
  56.     typedef Classes::TPersistent inherited;
  57.     
  58. private:
  59.     System::AnsiString FFilename;
  60.     System::AnsiString FSection;
  61.     
  62. public:
  63.     __fastcall TAHMIniFile(void);
  64.     __fastcall virtual ~TAHMIniFile(void);
  65.     
  66. __published:
  67.     __property System::AnsiString Filename = {read=FFilename, write=FFilename};
  68.     __property System::AnsiString Section = {read=FSection, write=FSection};
  69. };
  70.  
  71. class DELPHICLASS TAHMDataStore;
  72. class PASCALIMPLEMENTATION TAHMDataStore : public Classes::TPersistent 
  73. {
  74.     typedef Classes::TPersistent inherited;
  75.     
  76. private:
  77.     bool FEnabled;
  78.     TAHMDatatype FDatatype;
  79.     TAHMRegistry* FRegistry;
  80.     TAHMIniFile* FIniFile;
  81.     Classes::TNotifyEvent FOnError;
  82.     int FErrorInt;
  83.     System::AnsiString FErrorStr;
  84.     bool FErrorBool;
  85.     System::AnsiString __fastcall GetSection(void);
  86.     void __fastcall DoFix(void);
  87.     
  88. public:
  89.     __fastcall TAHMDataStore(void);
  90.     __fastcall virtual ~TAHMDataStore(void);
  91.     System::AnsiString __fastcall ReadStr(System::AnsiString Key);
  92.     int __fastcall ReadInt(System::AnsiString Key);
  93.     bool __fastcall ReadBool(System::AnsiString Key);
  94.     System::AnsiString __fastcall ReadCrypt(System::AnsiString Key);
  95.     void __fastcall WriteCrypt(System::AnsiString Key, System::AnsiString Value);
  96.     void __fastcall ReadStrs(Classes::TStringList* &Values);
  97.     void __fastcall WriteStr(System::AnsiString Key, System::AnsiString Value);
  98.     void __fastcall WriteInt(System::AnsiString Key, int Value);
  99.     void __fastcall WriteBool(System::AnsiString Key, bool Value);
  100.     void __fastcall DeleteKey(System::AnsiString Key);
  101.     void __fastcall Erase(void);
  102.     
  103. __published:
  104.     __property int ErrorInt = {read=FErrorInt, write=FErrorInt, nodefault};
  105.     __property System::AnsiString ErrorStr = {read=FErrorStr, write=FErrorStr};
  106.     __property bool ErrorBool = {read=FErrorBool, write=FErrorBool, nodefault};
  107.     __property Classes::TNotifyEvent OnError = {read=FOnError, write=FOnError};
  108.     __property bool Enabled = {read=FEnabled, write=FEnabled, default=1};
  109.     __property TAHMDatatype Datatype = {read=FDatatype, write=FDatatype, default=0};
  110.     __property TAHMRegistry* Registry = {read=FRegistry, write=FRegistry};
  111.     __property TAHMIniFile* Inifile = {read=FIniFile, write=FIniFile};
  112. };
  113.  
  114. class DELPHICLASS TAHMControlStore;
  115. class PASCALIMPLEMENTATION TAHMControlStore : public Classes::TComponent 
  116. {
  117.     typedef Classes::TComponent inherited;
  118.     
  119. private:
  120.     Classes::TNotifyEvent FOnError;
  121.     TAHMDataStore* FDataStore;
  122.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  123.     
  124. public:
  125.     __fastcall virtual TAHMControlStore(Classes::TComponent* AOwner);
  126.     __fastcall virtual ~TAHMControlStore(void);
  127.     System::AnsiString __fastcall ReadStr(System::AnsiString Key);
  128.     int __fastcall ReadInt(System::AnsiString Key);
  129.     bool __fastcall ReadBool(System::AnsiString Key);
  130.     System::AnsiString __fastcall ReadCrypt(System::AnsiString Key);
  131.     void __fastcall WriteCrypt(System::AnsiString Key, System::AnsiString Value);
  132.     void __fastcall ReadStrs(Classes::TStringList* &Values);
  133.     void __fastcall WriteStr(System::AnsiString Key, System::AnsiString Value);
  134.     void __fastcall WriteInt(System::AnsiString Key, int Value);
  135.     void __fastcall WriteBool(System::AnsiString Key, bool Value);
  136.     void __fastcall DeleteKey(System::AnsiString Key);
  137.     void __fastcall Erase(void);
  138.     
  139. __published:
  140.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  141.     __property Classes::TNotifyEvent OnError = {read=FOnError, write=FOnError};
  142.     __property TAHMDataStore* DataStore = {read=FDataStore, write=FDataStore};
  143. };
  144.  
  145. class DELPHICLASS TAHMStoreEdit;
  146. class PASCALIMPLEMENTATION TAHMStoreEdit : public Stdctrls::TEdit 
  147. {
  148.     typedef Stdctrls::TEdit inherited;
  149.     
  150. private:
  151.     System::AnsiString FStoreKey;
  152.     System::AnsiString FValue;
  153.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  154.     TAHMControlStore* FControlStore;
  155.     
  156. protected:
  157.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  158.         );
  159.     void __fastcall SavetoStore(void);
  160.     
  161. public:
  162.     virtual void __fastcall Loaded(void);
  163.     __fastcall virtual ~TAHMStoreEdit(void);
  164.     DYNAMIC void __fastcall Change(void);
  165.     
  166. __published:
  167.     __property TAHMControlStore* Store = {read=FControlStore, write=FControlStore};
  168.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  169.     __property System::AnsiString StoreKey = {read=FStoreKey, write=FStoreKey};
  170. public:
  171.     /* TCustomEdit.Create */ __fastcall virtual TAHMStoreEdit(Classes::TComponent* AOwner) : Stdctrls::
  172.         TEdit(AOwner) { }
  173.     
  174. public:
  175.     /* TWinControl.CreateParented */ __fastcall TAHMStoreEdit(HWND ParentWindow) : Stdctrls::TEdit(ParentWindow
  176.         ) { }
  177.     
  178. };
  179.  
  180. class DELPHICLASS TAHMStoreCheckbox;
  181. class PASCALIMPLEMENTATION TAHMStoreCheckbox : public Stdctrls::TCheckBox 
  182. {
  183.     typedef Stdctrls::TCheckBox inherited;
  184.     
  185. private:
  186.     System::AnsiString FStoreKey;
  187.     bool FValue;
  188.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  189.     TAHMControlStore* FControlStore;
  190.     
  191. protected:
  192.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  193.         );
  194.     void __fastcall SavetoStore(void);
  195.     
  196. public:
  197.     virtual void __fastcall Loaded(void);
  198.     __fastcall virtual ~TAHMStoreCheckbox(void);
  199.     DYNAMIC void __fastcall Click(void);
  200.     
  201. __published:
  202.     __property TAHMControlStore* Store = {read=FControlStore, write=FControlStore};
  203.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  204.     __property System::AnsiString StoreKey = {read=FStoreKey, write=FStoreKey};
  205. public:
  206.     /* TCustomCheckBox.Create */ __fastcall virtual TAHMStoreCheckbox(Classes::TComponent* AOwner) : Stdctrls::
  207.         TCheckBox(AOwner) { }
  208.     
  209. public:
  210.     /* TWinControl.CreateParented */ __fastcall TAHMStoreCheckbox(HWND ParentWindow) : Stdctrls::TCheckBox(
  211.         ParentWindow) { }
  212.     
  213. };
  214.  
  215. class DELPHICLASS TAHMStoreRadioButton;
  216. class PASCALIMPLEMENTATION TAHMStoreRadioButton : public Stdctrls::TRadioButton 
  217. {
  218.     typedef Stdctrls::TRadioButton inherited;
  219.     
  220. private:
  221.     System::AnsiString FStoreKey;
  222.     bool FValue;
  223.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  224.     TAHMControlStore* FControlStore;
  225.     
  226. protected:
  227.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  228.         );
  229.     void __fastcall SavetoStore(void);
  230.     
  231. public:
  232.     virtual void __fastcall Loaded(void);
  233.     __fastcall virtual ~TAHMStoreRadioButton(void);
  234.     DYNAMIC void __fastcall Click(void);
  235.     
  236. __published:
  237.     __property TAHMControlStore* Store = {read=FControlStore, write=FControlStore};
  238.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  239.     __property System::AnsiString StoreKey = {read=FStoreKey, write=FStoreKey};
  240. public:
  241.     /* TRadioButton.Create */ __fastcall virtual TAHMStoreRadioButton(Classes::TComponent* AOwner) : Stdctrls::
  242.         TRadioButton(AOwner) { }
  243.     
  244. public:
  245.     /* TWinControl.CreateParented */ __fastcall TAHMStoreRadioButton(HWND ParentWindow) : Stdctrls::TRadioButton(
  246.         ParentWindow) { }
  247.     
  248. };
  249.  
  250. class DELPHICLASS TAHMStoreCombobox;
  251. class PASCALIMPLEMENTATION TAHMStoreCombobox : public Stdctrls::TComboBox 
  252. {
  253.     typedef Stdctrls::TComboBox inherited;
  254.     
  255. private:
  256.     System::AnsiString FStoreKey;
  257.     System::AnsiString FValue;
  258.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  259.     TAHMControlStore* FControlStore;
  260.     
  261. protected:
  262.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  263.         );
  264.     void __fastcall SavetoStore(void);
  265.     
  266. public:
  267.     virtual void __fastcall Loaded(void);
  268.     __fastcall virtual ~TAHMStoreCombobox(void);
  269.     DYNAMIC void __fastcall Change(void);
  270.     
  271. __published:
  272.     __property ItemIndex ;
  273.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  274.     __property TAHMControlStore* Store = {read=FControlStore, write=FControlStore};
  275.     __property System::AnsiString StoreKey = {read=FStoreKey, write=FStoreKey};
  276. public:
  277.     /* TCustomComboBox.Create */ __fastcall virtual TAHMStoreCombobox(Classes::TComponent* AOwner) : Stdctrls::
  278.         TComboBox(AOwner) { }
  279.     
  280. public:
  281.     /* TWinControl.CreateParented */ __fastcall TAHMStoreCombobox(HWND ParentWindow) : Stdctrls::TComboBox(
  282.         ParentWindow) { }
  283.     
  284. };
  285.  
  286. class DELPHICLASS TAHMStoreMemo;
  287. class PASCALIMPLEMENTATION TAHMStoreMemo : public Comctrls::TRichEdit 
  288. {
  289.     typedef Comctrls::TRichEdit inherited;
  290.     
  291. private:
  292.     System::AnsiString FStoreKey;
  293.     System::AnsiString FValue;
  294.     TAHMControlStore* FControlStore;
  295.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  296.     
  297. protected:
  298.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  299.         );
  300.     void __fastcall SavetoStore(void);
  301.     
  302. public:
  303.     virtual void __fastcall Loaded(void);
  304.     __fastcall virtual ~TAHMStoreMemo(void);
  305.     DYNAMIC void __fastcall Change(void);
  306.     
  307. __published:
  308.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  309.     __property TAHMControlStore* Store = {read=FControlStore, write=FControlStore};
  310.     __property System::AnsiString StoreKey = {read=FStoreKey, write=FStoreKey};
  311. public:
  312.     /* TCustomRichEdit.Create */ __fastcall virtual TAHMStoreMemo(Classes::TComponent* AOwner) : Comctrls::
  313.         TRichEdit(AOwner) { }
  314.     
  315. public:
  316.     /* TWinControl.CreateParented */ __fastcall TAHMStoreMemo(HWND ParentWindow) : Comctrls::TRichEdit(
  317.         ParentWindow) { }
  318.     
  319. };
  320.  
  321. //-- var, const, procedure ---------------------------------------------------
  322. extern PACKAGE HKEY AHMHKeys[6];
  323.  
  324. }    /* namespace Ahmtautostores */
  325. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  326. using namespace Ahmtautostores;
  327. #endif
  328. //-- end unit ----------------------------------------------------------------
  329. #endif    // AHMTAutoStores
  330.